home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.2
/
Group1
/
Tarihdll.dll
/
0
/
RCDATA
/
TVERESIYEFROM
/
TVERESIYEFROM.txt
Wrap
Text File
|
1998-07-24
|
12KB
|
423 lines
object VeresiyeFrom: TVeresiyeFrom
Left = 160
Top = 136
Width = 336
Height = 220
ActiveControl = SaklaBtn
Caption = 'Veresiye'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 328
Height = 193
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object ScrollBox: TScrollBox
Left = 6
Top = 6
Width = 316
Height = 181
HelpContext = 114
HorzScrollBar.Margin = 6
VertScrollBar.Margin = 6
Align = alClient
BorderStyle = bsNone
Color = clTeal
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 14
Top = 8
Width = 44
Height = 14
Alignment = taRightJustify
AutoSize = False
Caption = 'BOR�LU'
FocusControl = EdBorclu
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 23
Top = 33
Width = 35
Height = 16
Alignment = taRightJustify
AutoSize = False
Caption = 'BOR�'
FocusControl = EditBORC
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 10
Top = 102
Width = 67
Height = 16
AutoSize = False
Caption = 'A�IKLAMA'
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object SpeedBtnHST: TSpeedButton
Left = 264
Top = 5
Width = 21
Height = 20
Hint = 'Hasta Se� F6 Tu�u'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333303033333333030330303333333303033000000000000003300000000000
00033000000000000003300000000000000330FFFFFFFFFFFFF330CCCCDDDDDD
DDD330CCCC555D5555D330BFFCB5D55D55D330B0B3B5DDD5DD53301BF3333333
3333301133333333333330003333333333333333333333333333000000000000
0000000000000000000000000000000000000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedBtnHSTClick
end
object SpeedBtnCARI: TSpeedButton
Left = 289
Top = 5
Width = 21
Height = 20
Hint = 'Cari Se� F5 Tu�u'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
5555550000000000055555033333333305555503111111130555550313333313
0555550313333313055555031330331305555503100000130555550310000013
0555550300030003055555031000001305555503100000130555550311101113
0555550333333333055555000000000005555555555555555555000000000000
0000000000000000000000000000000000000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedBtnCARIClick
end
object SpeedBtnPARA: TSpeedButton
Left = 213
Top = 31
Width = 21
Height = 20
Hint = 'Hast Kat. Pay'
Glyph.Data = {
10010000424D1001000000000000760000002800000010000000100000000100
0400000000008000000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550000000005
5B55550202022020BBB55500202020020B5555020202002020555B0020202002
0205BB020202002020055B022020200202055500000000202005555022F22202
02055B55022F22202005BBB55022F22202055B5555022F222005555B555000B0
00B555BBB5B55BBB5BBBB55B5BBB55B555B5BB5555B555555555000000000000
0000000000000000000000000000000000000000}
ParentShowHint = False
ShowHint = True
OnClick = SpeedBtnPARAClick
end
object Label2: TLabel
Left = 2
Top = 58
Width = 56
Height = 14
Alignment = taRightJustify
Caption = 'VADE TRH.'
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LabelLimit: TLabel
Left = 148
Top = 56
Width = 6
Height = 14
Caption = '_'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object LabelKalan: TLabel
Left = 10
Top = 83
Width = 6
Height = 14
Caption = '_'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object EditBORC: TDBEdit
Left = 59
Top = 29
Width = 147
Height = 22
DataField = 'BORC'
DataSource = VerCariSRC
MaxLength = 0
TabOrder = 1
OnExit = EditBORCExit
end
object SaklaBtn: TBitBtn
Left = 7
Top = 147
Width = 89
Height = 27
Caption = '&Sakla'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = SaklaBtnClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F5550005555559995555777555555777550000}
NumGlyphs = 2
end
object VazgecBtn: TBitBtn
Left = 116
Top = 148
Width = 89
Height = 27
Caption = '&Vazge�'
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ModalResult = 2
ParentFont = False
TabOrder = 4
OnClick = VazgecBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object EdBorclu: TEdit
Left = 59
Top = 4
Width = 201
Height = 22
Enabled = False
TabOrder = 0
end
object DBEdBILGI: TDBEdit
Left = 6
Top = 118
Width = 297
Height = 22
DataField = 'BILGI'
DataSource = VerCariSRC
MaxLength = 0
TabOrder = 2
end
object DBEditVADE: TDBEdit
Left = 59
Top = 54
Width = 78
Height = 22
DataField = 'VADE'
DataSource = VerCariSRC
MaxLength = 0
TabOrder = 5
end
end
end
object VerCariSRC: TDataSource
DataSet = VerCariTab
Left = 287
Top = 45
end
object VerCariTab: TTable
AfterEdit = VerCariTabAfterEdit
DatabaseName = 'ECZ'
TableName = 'hareket.db'
Left = 260
Top = 45
object VerCariTabHAREKNO: TFloatField
FieldName = 'HAREKNO'
end
object VerCariTabCARIKOD: TStringField
FieldName = 'CARIKOD'
Size = 11
end
object VerCariTabALSATNO: TFloatField
FieldName = 'ALSATNO'
end
object VerCariTabTARIH: TDateField
FieldName = 'TARIH'
DisplayFormat = 'dd/mm/yyyy'
EditMask = '!90/90/9900;1; '
end
object VerCariTabBORC: TCurrencyField
FieldName = 'BORC'
end
object VerCariTabTUR: TStringField
FieldName = 'TUR'
Size = 1
end
object VerCariTabALSAT: TStringField
FieldName = 'ALSAT'
Size = 1
end
object VerCariTabBILGI: TStringField
FieldName = 'BILGI'
Size = 36
end
object VerCariTabVADE: TDateField
FieldName = 'VADE'
OnGetText = VerCariTabVADEGetText
OnSetText = VerCariTabVADESetText
DisplayFormat = 'dd/mm/yyyy'
EditMask = '99/99/9999;1;_'
end
object VerCariTabNIHAI: TSmallintField
FieldName = 'NIHAI'
end
end
object HstSecTab: TTable
DatabaseName = 'ECZ'
IndexFieldNames = 'HASTANO'
TableName = 'HASTA.DB'
Left = 254
Top = 118
object HstSecTabHASTANO: TIntegerField
FieldName = 'HASTANO'
end
object HstSecTabBORC: TCurrencyField
FieldName = 'BORC'
end
object HstSecTabHASTADI: TStringField
FieldName = 'HASTADI'
Size = 18
end
object HstSecTabHASTASOYAD: TStringField
FieldName = 'HASTASOYAD'
Size = 18
end
object HstSecTabVRSLIMIT: TCurrencyField
FieldName = 'VRSLIMIT'
end
object HstSecTabVRSUYARI: TStringField
FieldName = 'VRSUYARI'
Size = 1
end
object HstSecTabALACAK: TCurrencyField
FieldName = 'ALACAK'
end
end
object krmSecTab: TTable
DatabaseName = 'ECZ'
TableName = 'KRMLAR.DB'
Left = 230
Top = 118
object krmSecTabKOD: TStringField
FieldName = 'KOD'
Required = True
Size = 11
end
object krmSecTabAD: TStringField
FieldName = 'AD'
Required = True
Size = 36
end
object krmSecTabBORC: TCurrencyField
FieldName = 'BORC'
end
object krmSecTabALACAK: TCurrencyField
FieldName = 'ALACAK'
end
end
object HarekNoTab: TTable
DatabaseName = 'ECZ'
TableName = 'HRKNOAL.DB'
Left = 286
Top = 118
object HarekNoTabHRKNO: TFloatField
FieldName = 'HRKNO'
end
end
object prosesTab: TTable
DatabaseName = 'ECZ'
TableName = 'PROSES.DB'
Left = 88
Top = 112
object prosesTabTARIH: TDateTimeField
FieldName = 'TARIH'
end
object prosesTabACIKLA: TStringField
FieldName = 'ACIKLA'
Size = 36
end
object prosesTabISLETNO: TFloatField
FieldName = 'ISLETNO'
end
object prosesTabTUTAR: TCurrencyField
FieldName = 'TUTAR'
end
object prosesTabISLETIPI: TStringField
FieldName = 'ISLETIPI'
Size = 15
end
end
end